home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmsyscm / _setup.1 / AHMTMessages.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-12  |  5.2 KB  |  149 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTMessages.pas' rev: 3.00
  6.  
  7. #ifndef AHMTMessagesHPP
  8. #define AHMTMessagesHPP
  9. #include <AHMSystem.hpp>
  10. #include <StdCtrls.hpp>
  11. #include <Buttons.hpp>
  12. #include <Dialogs.hpp>
  13. #include <Classes.hpp>
  14. #include <Messages.hpp>
  15. #include <Windows.hpp>
  16. #include <SysUtils.hpp>
  17. #include <SysInit.hpp>
  18. #include <System.hpp>
  19.  
  20. //-- user supplied -----------------------------------------------------------
  21.  
  22. namespace Ahmtmessages
  23. {
  24. //-- type declarations -------------------------------------------------------
  25. class DELPHICLASS TAHMMsgBox;
  26. class PASCALIMPLEMENTATION TAHMMsgBox : public Ahmsystem::TAHMAdvancedExecComponent 
  27. {
  28.     typedef Ahmsystem::TAHMAdvancedExecComponent inherited;
  29.     
  30. private:
  31.     Classes::TStrings* FCaption;
  32.     Dialogs::TMsgDlgButtons FButtons;
  33.     Word freturn;
  34.     int fhelp;
  35.     TMsgDlgType FMessageType;
  36.     System::AnsiString factmess;
  37.     int fxpos;
  38.     int fypos;
  39.     Classes::TNotifyEvent fyes;
  40.     Classes::TNotifyEvent fno;
  41.     Classes::TNotifyEvent fOk;
  42.     Classes::TNotifyEvent fCancel;
  43.     Classes::TNotifyEvent fall;
  44.     Classes::TNotifyEvent fretry;
  45.     Classes::TNotifyEvent fignore;
  46.     Classes::TNotifyEvent fabort;
  47.     void __fastcall SetXPos(int value);
  48.     void __fastcall SetYPos(int value);
  49.     void __fastcall SetCaption(Classes::TStrings* value);
  50.     
  51. public:
  52.     __fastcall virtual TAHMMsgBox(Classes::TComponent* AOwner);
  53.     __fastcall virtual ~TAHMMsgBox(void);
  54.     virtual bool __fastcall Execute(void);
  55.     __property Word Return = {read=freturn, nodefault};
  56.     
  57. __published:
  58.     __property Classes::TStrings* Caption = {read=FCaption, write=SetCaption};
  59.     __property Dialogs::TMsgDlgType MessageType = {read=FMessageType, write=FMessageType, default=2};
  60.     __property Dialogs::TMsgDlgButtons Buttons = {read=FButtons, write=FButtons, default=12};
  61.     __property int HelpContext = {read=fhelp, write=fhelp, default=0};
  62.     __property int XPosition = {read=fxpos, write=SetXPos, default=-1};
  63.     __property int YPosition = {read=fypos, write=SetYPos, default=-1};
  64.     __property Classes::TNotifyEvent OnYes = {read=fyes, write=fyes};
  65.     __property Classes::TNotifyEvent OnNo = {read=fno, write=fno};
  66.     __property Classes::TNotifyEvent OnOk = {read=fOk, write=fOk};
  67.     __property Classes::TNotifyEvent OnCancel = {read=fCancel, write=fCancel};
  68.     __property Classes::TNotifyEvent OnAbort = {read=fabort, write=fabort};
  69.     __property Classes::TNotifyEvent OnIgnore = {read=fignore, write=fignore};
  70.     __property Classes::TNotifyEvent OnRetry = {read=fretry, write=fretry};
  71.     __property Classes::TNotifyEvent OnAll = {read=fall, write=fall};
  72. };
  73.  
  74. class DELPHICLASS TAHMMsgDlg;
  75. class PASCALIMPLEMENTATION TAHMMsgDlg : public Ahmsystem::TAHMAdvancedExecComponent 
  76. {
  77.     typedef Ahmsystem::TAHMAdvancedExecComponent inherited;
  78.     
  79. private:
  80.     Classes::TNotifyEvent fOk;
  81.     Classes::TNotifyEvent fCancel;
  82.     System::AnsiString fshow;
  83.     int fhelp;
  84.     System::AnsiString fheader;
  85.     System::AnsiString fretst;
  86.     System::AnsiString fquery;
  87.     int fxpos;
  88.     int fypos;
  89.     
  90. public:
  91.     __fastcall virtual TAHMMsgDlg(Classes::TComponent* AOwner);
  92.     virtual bool __fastcall Execute(void);
  93.     
  94. __published:
  95.     __property System::AnsiString Header = {read=fheader, write=fheader};
  96.     __property System::AnsiString Question = {read=fquery, write=fquery};
  97.     __property System::AnsiString Return = {read=fretst, write=fretst};
  98.     __property Classes::TNotifyEvent OnOk = {read=fOk, write=fOk};
  99.     __property Classes::TNotifyEvent OnCancel = {read=fCancel, write=fCancel};
  100. public:
  101.     /* TComponent.Destroy */ __fastcall virtual ~TAHMMsgDlg(void) { }
  102.     
  103. };
  104.  
  105. class DELPHICLASS TAHMMsgSelect;
  106. class PASCALIMPLEMENTATION TAHMMsgSelect : public Ahmsystem::TAHMAdvancedExecComponent 
  107. {
  108.     typedef Ahmsystem::TAHMAdvancedExecComponent inherited;
  109.     
  110. private:
  111.     Classes::TNotifyEvent fOk;
  112.     Classes::TNotifyEvent fCancel;
  113.     System::AnsiString fshow;
  114.     int fhelp;
  115.     System::AnsiString fheader;
  116.     System::AnsiString fretst;
  117.     System::AnsiString fquery;
  118.     bool fsort;
  119.     int fxpos;
  120.     int fypos;
  121.     Classes::TStrings* fitems;
  122.     void __fastcall SetItems(Classes::TStrings* value);
  123.     bool __fastcall InputQueryEx(const System::AnsiString ACaption, const System::AnsiString APrompt, System::AnsiString 
  124.         &Value, Classes::TStrings* Values);
  125.     
  126. public:
  127.     __fastcall virtual TAHMMsgSelect(Classes::TComponent* AOwner);
  128.     __fastcall virtual ~TAHMMsgSelect(void);
  129.     virtual bool __fastcall Execute(void);
  130.     
  131. __published:
  132.     __property System::AnsiString Header = {read=fheader, write=fheader};
  133.     __property System::AnsiString Question = {read=fquery, write=fquery};
  134.     __property System::AnsiString Return = {read=fretst, write=fretst};
  135.     __property Classes::TStrings* Items = {read=fitems, write=SetItems};
  136.     __property bool Sorted = {read=fsort, write=fsort, default=0};
  137.     __property Classes::TNotifyEvent OnOk = {read=fOk, write=fOk};
  138.     __property Classes::TNotifyEvent OnCancel = {read=fCancel, write=fCancel};
  139. };
  140.  
  141. //-- var, const, procedure ---------------------------------------------------
  142.  
  143. }    /* namespace Ahmtmessages */
  144. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  145. using namespace Ahmtmessages;
  146. #endif
  147. //-- end unit ----------------------------------------------------------------
  148. #endif    // AHMTMessages
  149.